home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / misc / amirec10.lha / Ced / AmiRecRLoad.ced next >
Text File  |  1994-09-07  |  1KB  |  65 lines
  1. /*
  2. ** AmiRecRLoad.ced
  3. **
  4. ** $AmiRecRLoad 1.0 (07.09.94), written by Janne Saarme.
  5. **
  6. ** This script is an ARexx program for communicating with CED.
  7. ** Requires CygnusEd Professional v3.5 (or later) to run.
  8. **
  9. ** 
  10. ** What this do? 
  11. **        Load recent file. Cut all crap away and run
  12. **         AmiRecRSave script if ya want. 
  13. **
  14. ** How to install script?
  15. **
  16. ** Edit this script for your needs and save it in ARexx directory.
  17. **
  18. ** Select Special
  19. **
  20. **    Dos/Arexx interface
  21. **    Install dos/Arexx command...
  22. **
  23. **   from CED. Enter the function key number you want to assign.
  24. **   Give AmiRecRLoad and ENTER.
  25. **
  26. **   If you wish to save these commands, select "Save Dos/ARexx commands..."
  27. **
  28. */
  29.  
  30.  
  31. /* Default path and filename of RECENT file. */
  32. default = "Dl:Recent2"        
  33.  
  34. /* If there is something crap before list, we try to find list. */
  35. searchstring  = "|File"          
  36.                  
  37.  
  38. OPTIONS RESULTS
  39.  
  40. /* Set the default port name so that commands go to CED. */
  41. ADDRESS "rexx_ced"        
  42.  
  43. /* Use the 'Open new' menu command to open up a new project. */
  44. OPEN NEW            
  45.  
  46. /* Expand the new view out to full size. */
  47. EXPAND VIEW            
  48.  
  49. /* Load default file or... */
  50.  
  51. OKAY2 "Do you want to load default file?"
  52. if (RESULT = 1) THEN
  53.     OPEN default
  54. else
  55.     OPEN
  56.  
  57. /* If you do not want to destroy "crap" before list, remove MARK and CUT lines. */
  58. MARK                
  59.                    
  60. SEARCH FOR searchstring
  61. CUT
  62.  
  63. EXIT 0
  64.  
  65.